/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / gnus / nndb.elc.z / nndb.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar  9 13|
|00000040| 3a 30 32 3a 35 37 20 31 | 39 39 38 0a 3b 3b 3b 20 |:02:57 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 67 6e 75 73 |s-20.3/l|isp/gnus|
|000000a0| 2f 6e 6e 64 62 2e 65 6c | 0a 3b 3b 3b 20 65 6d 61 |/nndb.el|.;;; ema|
|000000b0| 63 73 20 76 65 72 73 69 | 6f 6e 20 32 30 2e 34 20 |cs versi|on 20.4 |
|000000c0| 22 45 6d 65 72 61 6c 64 | 22 20 58 45 6d 61 63 73 |"Emerald|" XEmacs|
|000000d0| 20 20 4c 75 63 69 64 2e | 0a 3b 3b 3b 20 62 79 74 |  Lucid.|.;;; byt|
|000000e0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 32 2e |ecomp ve|rsion 2.|
|000000f0| 32 35 20 58 45 6d 61 63 | 73 3b 20 32 32 2d 4d 61 |25 XEmac|s; 22-Ma|
|00000100| 72 2d 39 36 2e 0a 3b 3b | 3b 20 6f 70 74 69 6d 69 |r-96..;;|; optimi|
|00000110| 7a 61 74 69 6f 6e 20 69 | 73 20 6f 6e 2e 0a 3b 3b |zation i|s on..;;|
|00000120| 3b 20 74 68 69 73 20 66 | 69 6c 65 20 75 73 65 73 |; this f|ile uses|
|00000130| 20 6f 70 63 6f 64 65 73 | 20 77 68 69 63 68 20 64 | opcodes| which d|
|00000140| 6f 20 6e 6f 74 20 65 78 | 69 73 74 20 69 6e 20 45 |o not ex|ist in E|
|00000150| 6d 61 63 73 20 31 39 2e | 0a 0a 28 69 66 20 28 61 |macs 19.|..(if (a|
|00000160| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 6d 61 63 |nd (boun|dp 'emac|
|00000170| 73 2d 76 65 72 73 69 6f | 6e 29 0a 09 20 28 6f 72 |s-versio|n).. (or|
|00000180| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000190| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 20 65 |poch::ve|rsion) e|
|000001a0| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 0a 09 |poch::ve|rsion)..|
|000001b0| 20 20 20 20 20 28 73 74 | 72 69 6e 67 2d 6c 65 73 |     (st|ring-les|
|000001c0| 73 70 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |sp emacs|-version|
|000001d0| 20 22 32 30 22 29 29 29 | 0a 20 20 20 20 28 65 72 | "20")))|.    (er|
|000001e0| 72 6f 72 20 22 60 6e 6e | 64 62 2e 65 6c 27 20 77 |ror "`nn|db.el' w|
|000001f0| 61 73 20 63 6f 6d 70 69 | 6c 65 64 20 66 6f 72 20 |as compi|led for |
|00000200| 45 6d 61 63 73 20 32 30 | 22 29 29 0a 0a 28 6f 72 |Emacs 20|"))..(or|
|00000210| 20 28 62 6f 75 6e 64 70 | 20 27 63 75 72 72 65 6e | (boundp| 'curren|
|00000220| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 29 20 28 73 65 |t-load-l|ist) (se|
|00000230| 74 71 20 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |tq curre|nt-load-|
|00000240| 6c 69 73 74 20 6e 69 6c | 29 29 0a 0a 0a 28 62 79 |list nil|))...(by|
|00000250| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 c3 c4 c5 25 |te-code |"......%|
|00000260| 88 c6 c7 21 88 c6 c8 21 | 88 c6 c9 21 88 ca cb 21 |...!...!|...!...!|
|00000270| ac 84 c6 cc 21 88 cd ce | cf 5c 22 88 cd d0 cf 5c |....!...|.\"....\|
|00000280| 22 88 cd d1 d2 5c 22 88 | cd d3 d4 d5 d6 24 88 cd |"....\".|.....$..|
|00000290| d7 d4 d5 d6 24 88 cd d8 | d9 5c 22 88 da db dc dd |....$...|.\".....|
|000002a0| 5c 22 d5 89 46 0e 1e 42 | 16 1e da df 44 0e 20 42 |\"..F..B|....D. B|
|000002b0| 16 20 d5 87 22 20 5b 67 | 6e 75 73 2d 64 65 63 6c |. .." [g|nus-decl|
|000002c0| 61 72 65 2d 62 61 63 6b | 65 6e 64 20 22 6e 6e 64 |are-back|end "nnd|
|000002d0| 62 22 20 6d 61 69 6c 20 | 72 65 73 70 6f 6f 6c 20 |b" mail |respool |
|000002e0| 61 64 64 72 65 73 73 20 | 70 72 6f 6d 70 74 2d 61 |address |prompt-a|
|000002f0| 64 64 72 65 73 73 20 72 | 65 71 75 69 72 65 20 6e |ddress r|equire n|
|00000300| 6e 6d 61 69 6c 20 6e 6e | 68 65 61 64 65 72 20 6e |nmail nn|header n|
|00000310| 6e 74 70 20 66 62 6f 75 | 6e 64 70 20 6f 70 65 6e |ntp fbou|ndp open|
|00000320| 2d 6e 65 74 77 6f 72 6b | 2d 73 74 72 65 61 6d 20 |-network|-stream |
|00000330| 74 63 70 20 61 75 74 6f | 6c 6f 61 64 20 6e 65 77 |tcp auto|load new|
|00000340| 73 2d 73 65 74 75 70 20 | 22 72 6e 65 77 73 70 6f |s-setup |"rnewspo|
|00000350| 73 74 22 20 6e 65 77 73 | 2d 72 65 70 6c 79 2d 6d |st" news|-reply-m|
|00000360| 6f 64 65 20 63 61 6e 63 | 65 6c 2d 74 69 6d 65 72 |ode canc|el-timer|
|00000370| 20 22 74 69 6d 65 72 22 | 20 74 65 6c 6e 65 74 20 | "timer"| telnet |
|00000380| 22 74 65 6c 6e 65 74 22 | 20 6e 69 6c 20 74 20 74 |"telnet"| nil t t|
|00000390| 65 6c 6e 65 74 2d 73 65 | 6e 64 2d 69 6e 70 75 74 |elnet-se|nd-input|
|000003a0| 20 74 69 6d 65 7a 6f 6e | 65 2d 70 61 72 73 65 2d | timezon|e-parse-|
|000003b0| 64 61 74 65 20 22 74 69 | 6d 65 7a 6f 6e 65 22 20 |date "ti|mezone" |
|000003c0| 6e 6e 64 62 20 6d 61 70 | 63 61 72 20 23 5b 28 70 |nndb map|car #[(p|
|000003d0| 29 20 22 08 43 87 22 20 | 5b 70 5d 20 31 5d 20 28 |) ".C." |[p] 1] (|
|000003e0| 6e 6e 74 70 29 20 6e 6e | 6f 6f 2d 64 65 66 69 6e |nntp) nn|oo-defin|
|000003f0| 69 74 69 6f 6e 2d 61 6c | 69 73 74 20 22 2a 69 6e |ition-al|ist "*in|
|00000400| 74 65 72 6e 61 6c 2d 6e | 6f 6e 2d 69 6e 69 74 69 |ternal-n|on-initi|
|00000410| 61 6c 69 7a 65 64 2d 62 | 61 63 6b 65 6e 64 2a 22 |alized-b|ackend*"|
|00000420| 20 6e 6e 6f 6f 2d 73 74 | 61 74 65 2d 61 6c 69 73 | nnoo-st|ate-alis|
|00000430| 74 5d 20 36 29 0a 23 40 | 35 34 20 2a 54 68 65 20 |t] 6).#@|54 *The |
|00000440| 70 72 6f 67 72 61 6d 20 | 75 73 65 64 20 74 6f 20 |program |used to |
|00000450| 70 75 74 20 61 20 6d 65 | 73 73 61 67 65 20 69 6e |put a me|ssage in|
|00000460| 20 61 6e 20 4e 4e 44 42 | 20 67 72 6f 75 70 2e 1f | an NNDB| group..|
|00000470| 0a 28 64 65 66 76 61 72 | 20 6e 6e 64 62 2d 64 65 |.(defvar| nndb-de|
|00000480| 6c 69 76 65 72 2d 70 72 | 6f 67 72 61 6d 20 22 6e |liver-pr|ogram "n|
|00000490| 6e 64 65 6c 22 20 28 23 | 24 20 2e 20 2d 31 30 38 |ndel" (#|$ . -108|
|000004a0| 33 29 29 0a 28 6e 6e 6f | 6f 2d 64 65 66 69 6e 65 |3)).(nno|o-define|
|000004b0| 20 27 6e 6e 64 62 2d 64 | 65 6c 69 76 65 72 2d 70 | 'nndb-d|eliver-p|
|000004c0| 72 6f 67 72 61 6d 20 6e | 69 6c 29 0a 23 40 35 36 |rogram n|il).#@56|
|000004d0| 20 49 66 20 74 2c 20 65 | 78 70 69 72 79 20 63 61 | If t, e|xpiry ca|
|000004e0| 6c 63 75 6c 61 74 69 6f | 6e 20 77 69 6c 6c 20 6f |lculatio|n will o|
|000004f0| 63 63 75 72 20 6f 6e 20 | 74 68 65 20 73 65 72 76 |ccur on |the serv|
|00000500| 65 72 20 73 69 64 65 1f | 0a 28 64 65 66 76 61 72 |er side.|.(defvar|
|00000510| 20 6e 6e 64 62 2d 73 65 | 72 76 65 72 2d 73 69 64 | nndb-se|rver-sid|
|00000520| 65 2d 65 78 70 69 72 79 | 20 6e 69 6c 20 28 23 24 |e-expiry| nil (#$|
|00000530| 20 2e 20 31 32 33 33 29 | 29 0a 28 6e 6e 6f 6f 2d | . 1233)|).(nnoo-|
|00000540| 64 65 66 69 6e 65 20 27 | 6e 6e 64 62 2d 73 65 72 |define '|nndb-ser|
|00000550| 76 65 72 2d 73 69 64 65 | 2d 65 78 70 69 72 79 20 |ver-side|-expiry |
|00000560| 6e 69 6c 29 0a 23 40 31 | 36 33 20 49 66 20 74 2c |nil).#@1|63 If t,|
|00000570| 20 74 68 65 20 65 78 70 | 69 72 79 20 64 61 74 65 | the exp|iry date|
|00000580| 20 66 6f 72 20 61 20 67 | 69 76 65 6e 20 61 72 74 | for a g|iven art|
|00000590| 69 63 6c 65 20 77 69 6c | 6c 20 62 65 20 73 65 74 |icle wil|l be set|
|000005a0| 20 74 6f 20 74 68 65 20 | 74 69 6d 65 0a 69 74 20 | to the |time.it |
|000005b0| 77 61 73 20 6d 61 72 6b | 65 64 20 61 73 20 65 78 |was mark|ed as ex|
|000005c0| 70 69 72 65 61 62 6c 65 | 3b 20 6f 74 68 65 72 77 |pireable|; otherw|
|000005d0| 69 73 65 20 74 68 65 20 | 64 61 74 65 20 77 69 6c |ise the |date wil|
|000005e0| 6c 20 62 65 20 74 68 65 | 20 74 69 6d 65 20 74 68 |l be the| time th|
|000005f0| 65 0a 61 72 74 69 63 6c | 65 20 77 61 73 20 70 6f |e.articl|e was po|
|00000600| 73 74 65 64 20 74 6f 20 | 6e 6e 64 62 1f 0a 28 64 |sted to |nndb..(d|
|00000610| 65 66 76 61 72 20 6e 6e | 64 62 2d 73 65 74 2d 65 |efvar nn|db-set-e|
|00000620| 78 70 69 72 65 2d 64 61 | 74 65 2d 6f 6e 2d 6d 61 |xpire-da|te-on-ma|
|00000630| 72 6b 20 6e 69 6c 20 28 | 23 24 20 2e 20 31 33 38 |rk nil (|#$ . 138|
|00000640| 37 29 29 0a 28 6e 6e 6f | 6f 2d 64 65 66 69 6e 65 |7)).(nno|o-define|
|00000650| 20 27 6e 6e 64 62 2d 73 | 65 74 2d 65 78 70 69 72 | 'nndb-s|et-expir|
|00000660| 65 2d 64 61 74 65 2d 6f | 6e 2d 6d 61 72 6b 20 6e |e-date-o|n-mark n|
|00000670| 69 6c 29 0a 23 40 33 31 | 20 4c 69 6b 65 20 6e 6e |il).#@31| Like nn|
|00000680| 74 70 2d 73 65 72 76 65 | 72 2d 6f 70 65 6e 65 64 |tp-serve|r-opened|
|00000690| 2d 68 6f 6f 6b 2e 1f 0a | 28 64 65 66 76 61 72 20 |-hook...|(defvar |
|000006a0| 6e 6e 64 62 2d 73 65 72 | 76 65 72 2d 6f 70 65 6e |nndb-ser|ver-open|
|000006b0| 65 64 2d 68 6f 6f 6b 20 | 27 28 6e 6e 74 70 2d 73 |ed-hook |'(nntp-s|
|000006c0| 65 6e 64 2d 61 75 74 68 | 69 6e 66 6f 2d 66 72 6f |end-auth|info-fro|
|000006d0| 6d 2d 66 69 6c 65 29 20 | 28 23 24 20 2e 20 31 36 |m-file) |(#$ . 16|
|000006e0| 35 37 29 29 0a 28 6e 6e | 6f 6f 2d 64 65 66 69 6e |57)).(nn|oo-defin|
|000006f0| 65 20 27 6e 6e 64 62 2d | 73 65 72 76 65 72 2d 6f |e 'nndb-|server-o|
|00000700| 70 65 6e 65 64 2d 68 6f | 6f 6b 20 27 28 6e 6e 74 |pened-ho|ok '(nnt|
|00000710| 70 2d 73 65 72 76 65 72 | 2d 6f 70 65 6e 65 64 2d |p-server|-opened-|
|00000720| 68 6f 6f 6b 29 29 0a 23 | 40 33 31 20 2a 54 68 65 |hook)).#|@31 *The|
|00000730| 20 6e 61 6d 65 20 6f 66 | 20 74 68 65 20 4e 4e 44 | name of| the NND|
|00000740| 42 20 73 65 72 76 65 72 | 2e 1f 0a 28 64 65 66 76 |B server|...(defv|
|00000750| 61 72 20 6e 6e 64 62 2d | 61 64 64 72 65 73 73 20 |ar nndb-|address |
|00000760| 22 6c 6f 63 61 6c 68 6f | 73 74 22 20 28 23 24 20 |"localho|st" (#$ |
|00000770| 2e 20 2d 31 38 33 36 29 | 29 0a 28 6e 6e 6f 6f 2d |. -1836)|).(nnoo-|
|00000780| 64 65 66 69 6e 65 20 27 | 6e 6e 64 62 2d 61 64 64 |define '|nndb-add|
|00000790| 72 65 73 73 20 27 28 6e | 6e 74 70 2d 61 64 64 72 |ress '(n|ntp-addr|
|000007a0| 65 73 73 29 29 0a 23 40 | 32 39 20 2a 50 6f 72 74 |ess)).#@|29 *Port|
|000007b0| 20 6e 75 6d 62 65 72 20 | 74 6f 20 63 6f 6e 6e 65 | number |to conne|
|000007c0| 63 74 20 74 6f 2e 1f 0a | 28 64 65 66 76 61 72 20 |ct to...|(defvar |
|000007d0| 6e 6e 64 62 2d 70 6f 72 | 74 2d 6e 75 6d 62 65 72 |nndb-por|t-number|
|000007e0| 20 39 30 30 30 20 28 23 | 24 20 2e 20 2d 31 39 36 | 9000 (#|$ . -196|
|000007f0| 33 29 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |3)).(byt|e-code "|
|00000800| c0 c1 c2 5c 22 88 c3 c4 | 21 ac 82 c5 14 c4 0e 06 |...\"...|!.......|
|00000810| 42 16 06 c0 c4 c7 5c 22 | 87 22 20 5b 6e 6e 6f 6f |B.....\"|." [nnoo|
|00000820| 2d 64 65 66 69 6e 65 20 | 6e 6e 64 62 2d 70 6f 72 |-define |nndb-por|
|00000830| 74 2d 6e 75 6d 62 65 72 | 20 28 6e 6e 74 70 2d 70 |t-number| (nntp-p|
|00000840| 6f 72 74 2d 6e 75 6d 62 | 65 72 29 20 62 6f 75 6e |ort-numb|er) boun|
|00000850| 64 70 20 6e 6e 64 62 2d | 61 72 74 69 63 6c 65 2d |dp nndb-|article-|
|00000860| 74 79 70 65 20 6d 61 69 | 6c 20 63 75 72 72 65 6e |type mai|l curren|
|00000870| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 20 6e 69 6c 5d |t-load-l|ist nil]|
|00000880| 20 33 29 0a 23 40 32 20 | 1f 0a 28 64 65 66 76 61 | 3).#@2 |..(defva|
|00000890| 72 20 6e 6e 64 62 2d 73 | 74 61 74 75 73 2d 73 74 |r nndb-s|tatus-st|
|000008a0| 72 69 6e 67 20 6e 69 6c | 20 28 23 24 20 2e 20 32 |ring nil| (#$ . 2|
|000008b0| 31 38 34 29 29 0a 28 6e | 6e 6f 6f 2d 64 65 66 69 |184)).(n|noo-defi|
|000008c0| 6e 65 20 27 6e 6e 64 62 | 2d 73 74 61 74 75 73 2d |ne 'nndb|-status-|
|000008d0| 73 74 72 69 6e 67 20 27 | 28 6e 6e 74 70 2d 73 74 |string '|(nntp-st|
|000008e0| 61 74 75 73 2d 73 74 72 | 69 6e 67 29 29 0a 23 40 |atus-str|ing)).#@|
|000008f0| 34 32 20 56 65 72 73 69 | 6f 6e 20 6e 75 6d 62 65 |42 Versi|on numbe|
|00000900| 72 73 20 6f 66 20 74 68 | 69 73 20 76 65 72 73 69 |rs of th|is versi|
|00000910| 6f 6e 20 6f 66 20 4e 4e | 44 42 2e 1f 0a 28 64 65 |on of NN|DB...(de|
|00000920| 66 63 6f 6e 73 74 20 6e | 6e 64 62 2d 76 65 72 73 |fconst n|ndb-vers|
|00000930| 69 6f 6e 20 22 6e 6e 64 | 62 20 30 2e 37 22 20 28 |ion "nnd|b 0.7" (|
|00000940| 23 24 20 2e 20 32 32 39 | 31 29 29 0a 28 6e 6e 6f |#$ . 229|1)).(nno|
|00000950| 6f 2d 64 65 66 69 6e 65 | 2d 62 61 73 69 63 73 2d |o-define|-basics-|
|00000960| 31 20 27 6e 6e 64 62 29 | 0a 28 64 65 66 61 6c 69 |1 'nndb)|.(defali|
|00000970| 61 73 20 27 6e 6e 64 62 | 2d 62 75 69 6c 64 2d 61 |as 'nndb|-build-a|
|00000980| 72 74 69 63 6c 65 2d 73 | 74 72 69 6e 67 20 23 5b |rticle-s|tring #[|
|00000990| 28 61 72 74 69 63 6c 65 | 73 29 20 22 c0 89 19 1a |(article|s) "....|
|000009a0| 0b ab 8d 0b 89 41 13 40 | 11 5c 6e 09 c4 51 12 aa |.....A.@|.\n..Q..|
|000009b0| 70 5c 6e 2a 87 22 20 5b | 6e 69 6c 20 61 72 74 20 |p\n*." [|nil art |
|000009c0| 61 72 74 2d 73 74 72 69 | 6e 67 20 61 72 74 69 63 |art-stri|ng artic|
|000009d0| 6c 65 73 20 22 20 22 5d | 20 33 5d 29 0a 28 64 65 |les " "]| 3]).(de|
|000009e0| 66 61 6c 69 61 73 20 27 | 6e 6e 64 62 2d 62 75 69 |falias '|nndb-bui|
|000009f0| 6c 64 2d 65 78 70 69 72 | 65 2d 72 65 73 74 2d 6c |ld-expir|e-rest-l|
|00000a00| 69 73 74 20 23 5b 28 74 | 6f 74 61 6c 20 65 78 70 |ist #[(t|otal exp|
|00000a10| 69 72 65 29 20 22 c0 89 | 19 1a 0b ab 91 0b 89 41 |ire) "..|.......A|
|00000a20| 13 40 89 12 0c 73 ac 72 | 5c 6e 09 42 11 aa 6c 09 |.@...s.r|\n.B..l.|
|00000a30| 2a 87 22 20 5b 6e 69 6c | 20 72 65 73 74 20 61 72 |*." [nil| rest ar|
|00000a40| 74 20 74 6f 74 61 6c 20 | 65 78 70 69 72 65 5d 20 |t total |expire] |
|00000a50| 33 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6e |3]).(def|alias 'n|
|00000a60| 6e 64 62 2d 72 65 71 75 | 65 73 74 2d 74 79 70 65 |ndb-requ|est-type|
|00000a70| 20 23 5b 28 67 72 6f 75 | 70 20 26 6f 70 74 69 6f | #[(grou|p &optio|
|00000a80| 6e 61 6c 20 61 72 74 69 | 63 6c 65 29 20 22 08 87 |nal arti|cle) "..|
|00000a90| 22 20 5b 6e 6e 64 62 2d | 61 72 74 69 63 6c 65 2d |" [nndb-|article-|
|00000aa0| 74 79 70 65 5d 20 31 5d | 29 0a 28 6e 6e 6f 6f 2d |type] 1]|).(nnoo-|
|00000ab0| 72 65 67 69 73 74 65 72 | 2d 66 75 6e 63 74 69 6f |register|-functio|
|00000ac0| 6e 20 27 6e 6e 64 62 2d | 72 65 71 75 65 73 74 2d |n 'nndb-|request-|
|00000ad0| 74 79 70 65 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |type).(d|efalias |
|00000ae0| 27 6e 6e 64 62 2d 74 6f | 75 63 68 2d 61 72 74 69 |'nndb-to|uch-arti|
|00000af0| 63 6c 65 20 23 5b 28 67 | 72 6f 75 70 20 61 72 74 |cle #[(g|roup art|
|00000b00| 69 63 6c 65 29 20 22 c0 | c1 5c 6e 44 1b 1c 0d ac |icle) ".|.\nD....|
|00000b10| 8d 0e 06 ac 89 8a 0e 07 | 71 88 c8 20 88 29 c9 ca |........|q.. .)..|
|00000b20| cb 0b cc 23 0e 0d 0e 0e | 0e 07 0c 0d 26 06 2a 87 |...#....|....&.*.|
|00000b30| 22 20 5b 6e 69 6c 20 22 | 58 2d 54 4f 55 43 48 22 |" [nil "|X-TOUCH"|
|00000b40| 20 61 72 74 69 63 6c 65 | 20 73 74 72 69 6e 67 73 | article| strings|
|00000b50| 20 77 61 69 74 2d 66 6f | 72 20 6e 6e 68 65 61 64 | wait-fo|r nnhead|
|00000b60| 65 72 2d 63 61 6c 6c 62 | 61 63 6b 2d 66 75 6e 63 |er-callb|ack-func|
|00000b70| 74 69 6f 6e 20 6e 6e 74 | 70 2d 69 6e 68 69 62 69 |tion nnt|p-inhibi|
|00000b80| 74 2d 6f 75 74 70 75 74 | 20 6e 6e 74 70 2d 73 65 |t-output| nntp-se|
|00000b90| 72 76 65 72 2d 62 75 66 | 66 65 72 20 65 72 61 73 |rver-buf|fer eras|
|00000ba0| 65 2d 62 75 66 66 65 72 | 20 6e 6e 74 70 2d 72 65 |e-buffer| nntp-re|
|00000bb0| 74 72 69 65 76 65 2d 64 | 61 74 61 20 6d 61 70 63 |trieve-d|ata mapc|
|00000bc0| 6f 6e 63 61 74 20 69 64 | 65 6e 74 69 74 79 20 22 |oncat id|entity "|
|00000bd0| 20 22 20 6e 6e 74 70 2d | 61 64 64 72 65 73 73 20 | " nntp-|address |
|00000be0| 6e 6e 74 70 2d 70 6f 72 | 74 2d 6e 75 6d 62 65 72 |nntp-por|t-number|
|00000bf0| 5d 20 37 5d 29 0a 23 40 | 37 30 20 53 65 74 73 20 |] 7]).#@|70 Sets |
|00000c00| 74 68 65 20 65 78 70 69 | 72 79 20 64 61 74 65 20 |the expi|ry date |
|00000c10| 66 6f 72 20 41 52 54 49 | 43 4c 45 20 69 6e 20 47 |for ARTI|CLE in G|
|00000c20| 52 4f 55 50 20 74 6f 20 | 6e 6f 77 2c 20 69 66 20 |ROUP to |now, if |
|00000c30| 74 68 65 20 6d 61 72 6b | 20 69 73 20 27 45 27 1f |the mark| is 'E'.|
|00000c40| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6e 6e 64 62 |.(defali|as 'nndb|
|00000c50| 2d 72 65 71 75 65 73 74 | 2d 75 70 64 61 74 65 2d |-request|-update-|
|00000c60| 6d 61 72 6b 20 23 5b 28 | 67 72 6f 75 70 20 61 72 |mark #[(|group ar|
|00000c70| 74 69 63 6c 65 20 6d 61 | 72 6b 29 20 22 08 ab 8a |ticle ma|rk) "...|
|00000c80| 09 c2 98 ab 85 c3 0c 0d | 5c 22 88 09 87 22 20 5b |........|\"..." [|
|00000c90| 6e 6e 64 62 2d 73 65 74 | 2d 65 78 70 69 72 65 2d |nndb-set|-expire-|
|00000ca0| 64 61 74 65 2d 6f 6e 2d | 6d 61 72 6b 20 6d 61 72 |date-on-|mark mar|
|00000cb0| 6b 20 22 45 22 20 6e 6e | 64 62 2d 74 6f 75 63 68 |k "E" nn|db-touch|
|00000cc0| 2d 61 72 74 69 63 6c 65 | 20 67 72 6f 75 70 20 61 |-article| group a|
|00000cd0| 72 74 69 63 6c 65 5d 20 | 33 20 28 23 24 20 2e 20 |rticle] |3 (#$ . |
|00000ce0| 33 30 36 37 29 5d 29 0a | 28 6e 6e 6f 6f 2d 72 65 |3067)]).|(nnoo-re|
|00000cf0| 67 69 73 74 65 72 2d 66 | 75 6e 63 74 69 6f 6e 20 |gister-f|unction |
|00000d00| 27 6e 6e 64 62 2d 72 65 | 71 75 65 73 74 2d 75 70 |'nndb-re|quest-up|
|00000d10| 64 61 74 65 2d 6d 61 72 | 6b 29 0a 23 40 35 39 20 |date-mar|k).#@59 |
|00000d20| 4c 65 74 20 67 6e 75 73 | 20 64 6f 20 74 68 65 20 |Let gnus| do the |
|00000d30| 64 61 74 65 20 63 68 65 | 63 6b 20 61 6e 64 20 69 |date che|ck and i|
|00000d40| 73 73 75 65 20 74 68 65 | 20 64 65 6c 65 74 65 20 |ssue the| delete |
|00000d50| 63 6f 6d 6d 61 6e 64 73 | 2e 1f 0a 28 64 65 66 61 |commands|...(defa|
|00000d60| 6c 69 61 73 20 27 6e 6e | 64 62 2d 72 65 71 75 65 |lias 'nn|db-reque|
|00000d70| 73 74 2d 65 78 70 69 72 | 65 2d 61 72 74 69 63 6c |st-expir|e-articl|
|00000d80| 65 73 2d 6c 6f 63 61 6c | 20 23 5b 28 61 72 74 69 |es-local| #[(arti|
|00000d90| 63 6c 65 73 20 26 6f 70 | 74 69 6f 6e 61 6c 20 67 |cles &op|tional g|
|00000da0| 72 6f 75 70 20 73 65 72 | 76 65 72 20 66 6f 72 63 |roup ser|ver forc|
|00000db0| 65 29 20 22 c0 89 89 c1 | c0 1a 1b 1c 1d 1e 06 c7 |e) "....|........|
|00000dc0| 0e 08 0e 09 5c 22 88 0e | 5c 6e ab f1 0e 5c 6e 89 |....\"..|\n...\n.|
|00000dd0| 41 16 5c 6e 40 15 cb cc | 0d 44 1e 0d 1e 0e 0e 0f |A.\n@...|.D......|
|00000de0| ac 8d 0e 10 ac 89 8a 0e | 11 71 88 d2 20 88 29 d3 |........|.q.. .).|
|00000df0| d4 d5 0e 0d d6 23 0e 17 | 0e 18 0e 11 0e 0e 0e 0f |.....#..|........|
|00000e00| 26 06 88 2a d9 20 16 06 | da db 0e 06 5c 22 ac 3b |&..*. ..|....\".;|
|00000e10| da dc 0e 06 5c 22 ac 86 | dd de 0e 06 5c 22 88 df |....\"..|....\"..|
|00000e20| 0e 08 e0 0e 06 e1 94 e1 | 95 4f 21 0e 5c 22 23 ab |........|.O!.\"#.|
|00000e30| 8c 0c d6 e3 0d 21 51 14 | 0b 54 13 aa 11 0d 5c 6e |.....!Q.|.T....\n|
|00000e40| 42 12 aa 0b 0c 47 c1 56 | ab b8 e4 e5 e6 e3 0b 21 |B....G.V|.......!|
|00000e50| 0e 08 24 88 e7 e8 0c 44 | 1e 0d 1e 0e 0e 0f ac 8d |..$....D|........|
|00000e60| 0e 10 ac 89 8a 0e 11 71 | 88 d2 20 88 29 d3 d4 d5 |.......q|.. .)...|
|00000e70| 0e 0d d6 23 0e 17 0e 18 | 0e 11 0e 0e 0e 0f 26 06 |...#....|......&.|
|00000e80| 88 2a e9 ea 21 88 5c 6e | 0e 5c 6e a4 2d 87 22 20 |.*..!.\n|.\n.-." |
|00000e90| 5b 6e 69 6c 20 30 20 72 | 65 73 74 20 6e 75 6d 2d |[nil 0 r|est num-|
|00000ea0| 64 65 6c 65 74 65 20 64 | 65 6c 65 74 65 2d 6c 69 |delete d|elete-li|
|00000eb0| 73 74 20 61 72 74 20 6d | 73 67 20 6e 6e 74 70 2d |st art m|sg nntp-|
|00000ec0| 70 6f 73 73 69 62 6c 79 | 2d 63 68 61 6e 67 65 2d |possibly|-change-|
|00000ed0| 67 72 6f 75 70 20 67 72 | 6f 75 70 20 73 65 72 76 |group gr|oup serv|
|00000ee0| 65 72 20 61 72 74 69 63 | 6c 65 73 20 22 5e 5c 5c |er artic|les "^\\|
|00000ef0| 28 5b 32 33 5d 5c 5c 7c | 5e 34 32 33 5c 5c 29 2e |([23]\\||^423\\).|
|00000f00| 2a 5c 6e 22 20 22 58 2d | 44 41 54 45 22 20 73 74 |*\n" "X-|DATE" st|
|00000f10| 72 69 6e 67 73 20 77 61 | 69 74 2d 66 6f 72 20 6e |rings wa|it-for n|
|00000f20| 6e 68 65 61 64 65 72 2d | 63 61 6c 6c 62 61 63 6b |nheader-|callback|
|00000f30| 2d 66 75 6e 63 74 69 6f | 6e 20 6e 6e 74 70 2d 69 |-functio|n nntp-i|
|00000f40| 6e 68 69 62 69 74 2d 6f | 75 74 70 75 74 20 6e 6e |nhibit-o|utput nn|
|00000f50| 74 70 2d 73 65 72 76 65 | 72 2d 62 75 66 66 65 72 |tp-serve|r-buffer|
|00000f60| 20 65 72 61 73 65 2d 62 | 75 66 66 65 72 20 6e 6e | erase-b|uffer nn|
|00000f70| 74 70 2d 72 65 74 72 69 | 65 76 65 2d 64 61 74 61 |tp-retri|eve-data|
|00000f80| 20 6d 61 70 63 6f 6e 63 | 61 74 20 69 64 65 6e 74 | mapconc|at ident|
|00000f90| 69 74 79 20 22 20 22 20 | 6e 6e 74 70 2d 61 64 64 |ity " " |nntp-add|
|00000fa0| 72 65 73 73 20 6e 6e 74 | 70 2d 70 6f 72 74 2d 6e |ress nnt|p-port-n|
|00000fb0| 75 6d 62 65 72 20 6e 6e | 64 62 2d 73 74 61 74 75 |umber nn|db-statu|
|00000fc0| 73 2d 6d 65 73 73 61 67 | 65 20 73 74 72 69 6e 67 |s-messag|e string|
|00000fd0| 2d 6d 61 74 63 68 20 22 | 5e 34 32 33 22 20 22 27 |-match "|^423" "'|
|00000fe0| 5c 5c 28 2e 2b 5c 5c 29 | 27 22 20 65 72 72 6f 72 |\\(.+\\)|'" error|
|00000ff0| 20 22 4e 6f 74 20 61 20 | 76 61 6c 69 64 20 72 65 | "Not a |valid re|
|00001000| 73 70 6f 6e 73 65 20 66 | 6f 72 20 58 2d 44 41 54 |sponse f|or X-DAT|
|00001010| 45 20 63 6f 6d 6d 61 6e | 64 3a 20 25 73 22 20 6e |E comman|d: %s" n|
|00001020| 6e 6d 61 69 6c 2d 65 78 | 70 69 72 65 64 2d 61 72 |nmail-ex|pired-ar|
|00001030| 74 69 63 6c 65 2d 70 20 | 67 6e 75 73 2d 65 6e 63 |ticle-p |gnus-enc|
|00001040| 6f 64 65 2d 64 61 74 65 | 20 31 20 66 6f 72 63 65 |ode-date| 1 force|
|00001050| 20 69 6e 74 2d 74 6f 2d | 73 74 72 69 6e 67 20 6e | int-to-|string n|
|00001060| 6e 68 65 61 64 65 72 2d | 6d 65 73 73 61 67 65 20 |nheader-|message |
|00001070| 35 20 22 44 65 6c 65 74 | 69 6e 67 20 25 73 20 61 |5 "Delet|ing %s a|
|00001080| 72 74 69 63 6c 65 28 73 | 29 20 66 72 6f 6d 20 25 |rticle(s|) from %|
|00001090| 73 22 20 22 5e 5b 32 33 | 5d 2e 2a 5c 6e 22 20 22 |s" "^[23|].*\n" "|
|000010a0| 58 2d 44 45 4c 45 54 45 | 22 20 6d 65 73 73 61 67 |X-DELETE|" messag|
|000010b0| 65 20 22 22 5d 20 37 20 | 28 23 24 20 2e 20 33 33 |e ""] 7 |(#$ . 33|
|000010c0| 36 30 29 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |60)]).(d|efalias |
|000010d0| 27 6e 6e 64 62 2d 67 65 | 74 2d 72 65 6d 6f 74 65 |'nndb-ge|t-remote|
|000010e0| 2d 65 78 70 69 72 65 2d | 72 65 73 70 6f 6e 73 65 |-expire-|response|
|000010f0| 20 23 5b 6e 69 6c 20 22 | c0 19 5c 6e 71 88 65 62 | #[nil "|..\nq.eb|
|00001100| 88 c3 c4 21 ab 84 c0 11 | aa 97 c5 c6 c0 c7 23 88 |...!....|......#.|
|00001110| c5 c8 c0 c7 23 ab 8a c9 | ca cb 21 21 09 42 11 aa |....#...|..!!.B..|
|00001120| 6f 09 29 87 22 20 5b 6e | 69 6c 20 6c 69 73 74 20 |o.)." [n|il list |
|00001130| 6e 6e 74 70 2d 73 65 72 | 76 65 72 2d 62 75 66 66 |nntp-ser|ver-buff|
|00001140| 65 72 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 5e |er looki|ng-at "^|
|00001150| 5b 33 34 5d 22 20 72 65 | 2d 73 65 61 72 63 68 2d |[34]" re|-search-|
|00001160| 66 6f 72 77 61 72 64 20 | 22 66 6f 6c 6c 6f 77 73 |forward |"follows|
|00001170| 0d 3f 5c 6e 3f 22 20 74 | 20 22 5e 5b 30 2d 39 5d |.?\n?" t| "^[0-9]|
|00001180| 2b 24 22 20 73 74 72 69 | 6e 67 2d 74 6f 2d 69 6e |+$" stri|ng-to-in|
|00001190| 74 20 6d 61 74 63 68 2d | 73 74 72 69 6e 67 20 30 |t match-|string 0|
|000011a0| 5d 20 34 5d 29 0a 23 40 | 33 38 20 4c 65 74 20 74 |] 4]).#@|38 Let t|
|000011b0| 68 65 20 6e 6e 64 62 20 | 62 61 63 6b 65 6e 64 20 |he nndb |backend |
|000011c0| 65 78 70 69 72 65 20 61 | 72 74 69 63 6c 65 73 1f |expire a|rticles.|
|000011d0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6e 6e 64 62 |.(defali|as 'nndb|
|000011e0| 2d 72 65 71 75 65 73 74 | 2d 65 78 70 69 72 65 2d |-request|-expire-|
|000011f0| 61 72 74 69 63 6c 65 73 | 2d 72 65 6d 6f 74 65 20 |articles|-remote |
|00001200| 23 5b 28 61 72 74 69 63 | 6c 65 73 20 26 6f 70 74 |#[(artic|les &opt|
|00001210| 69 6f 6e 61 6c 20 67 72 | 6f 75 70 20 73 65 72 76 |ional gr|oup serv|
|00001220| 65 72 20 66 6f 72 63 65 | 29 20 22 c0 89 89 c1 1a |er force|) ".....|
|00001230| 1b 1c 1d c6 0e 07 0e 08 | 5c 22 88 0e 09 ab 87 0e |........|\"......|
|00001240| 09 0e 07 21 ae 82 0e 5c | 6e 15 0e 0b ab 84 c1 15 |...!...\|n.......|
|00001250| aa 90 0d cc 61 ab 84 cd | 15 aa 87 0d ce 61 ab 82 |....a...|.....a..|
|00001260| c1 15 0d cf d0 0e 11 21 | 51 14 d2 d3 0c 44 1e 14 |.......!|Q....D..|
|00001270| 1e 15 0e 16 ac 8d 0e 17 | ac 89 8a 0e 18 71 88 d9 |........|.....q..|
|00001280| 20 88 29 da db dc 0e 14 | cf 23 0e 1d 0e 1e 0e 18 | .).....|.#......|
|00001290| 0e 15 0e 16 26 06 88 2a | df 20 89 13 47 89 12 c1 |....&..*|. ..G...|
|000012a0| 56 ab 8a e0 e1 e2 e3 5c | 6e 21 0e 07 24 88 e4 0e |V......\|n!..$...|
|000012b0| 11 0b 5c 22 2c 87 22 20 | 5b 6e 69 6c 20 30 20 6e |..\",." |[nil 0 n|
|000012c0| 75 6d 2d 64 65 6c 65 74 | 65 20 64 65 6c 65 74 65 |um-delet|e delete|
|000012d0| 2d 6c 69 73 74 20 61 72 | 74 2d 73 74 72 69 6e 67 |-list ar|t-string|
|000012e0| 20 64 61 79 73 20 6e 6e | 74 70 2d 70 6f 73 73 69 | days nn|tp-possi|
|000012f0| 62 6c 79 2d 63 68 61 6e | 67 65 2d 67 72 6f 75 70 |bly-chan|ge-group|
|00001300| 20 67 72 6f 75 70 20 73 | 65 72 76 65 72 20 6e 6e | group s|erver nn|
|00001310| 6d 61 69 6c 2d 65 78 70 | 69 72 79 2d 77 61 69 74 |mail-exp|iry-wait|
|00001320| 2d 66 75 6e 63 74 69 6f | 6e 20 6e 6e 6d 61 69 6c |-functio|n nnmail|
|00001330| 2d 65 78 70 69 72 79 2d | 77 61 69 74 20 66 6f 72 |-expiry-|wait for|
|00001340| 63 65 20 6e 65 76 65 72 | 20 2d 31 20 69 6d 6d 65 |ce never| -1 imme|
|00001350| 64 69 61 74 65 20 22 20 | 22 20 6e 6e 64 62 2d 62 |diate " |" nndb-b|
|00001360| 75 69 6c 64 2d 61 72 74 | 69 63 6c 65 2d 73 74 72 |uild-art|icle-str|
|00001370| 69 6e 67 20 61 72 74 69 | 63 6c 65 73 20 22 5e 2e |ing arti|cles "^.|
|00001380| 0d 3f 5c 6e 5c 5c 7c 5e | 5b 33 34 35 5d 2e 2a 5c |.?\n\\|^|[345].*\|
|00001390| 6e 22 20 22 58 2d 45 58 | 50 49 52 45 22 20 73 74 |n" "X-EX|PIRE" st|
|000013a0| 72 69 6e 67 73 20 77 61 | 69 74 2d 66 6f 72 20 6e |rings wa|it-for n|
|000013b0| 6e 68 65 61 64 65 72 2d | 63 61 6c 6c 62 61 63 6b |nheader-|callback|
|000013c0| 2d 66 75 6e 63 74 69 6f | 6e 20 6e 6e 74 70 2d 69 |-functio|n nntp-i|
|000013d0| 6e 68 69 62 69 74 2d 6f | 75 74 70 75 74 20 6e 6e |nhibit-o|utput nn|
|000013e0| 74 70 2d 73 65 72 76 65 | 72 2d 62 75 66 66 65 72 |tp-serve|r-buffer|
|000013f0| 20 65 72 61 73 65 2d 62 | 75 66 66 65 72 20 6e 6e | erase-b|uffer nn|
|00001400| 74 70 2d 72 65 74 72 69 | 65 76 65 2d 64 61 74 61 |tp-retri|eve-data|
|00001410| 20 6d 61 70 63 6f 6e 63 | 61 74 20 69 64 65 6e 74 | mapconc|at ident|
|00001420| 69 74 79 20 6e 6e 74 70 | 2d 61 64 64 72 65 73 73 |ity nntp|-address|
|00001430| 20 6e 6e 74 70 2d 70 6f | 72 74 2d 6e 75 6d 62 65 | nntp-po|rt-numbe|
|00001440| 72 20 6e 6e 64 62 2d 67 | 65 74 2d 72 65 6d 6f 74 |r nndb-g|et-remot|
|00001450| 65 2d 65 78 70 69 72 65 | 2d 72 65 73 70 6f 6e 73 |e-expire|-respons|
|00001460| 65 20 6e 6e 68 65 61 64 | 65 72 2d 6d 65 73 73 61 |e nnhead|er-messa|
|00001470| 67 65 20 35 20 22 44 65 | 6c 65 74 69 6e 67 20 25 |ge 5 "De|leting %|
|00001480| 73 20 61 72 74 69 63 6c | 65 28 73 29 20 66 72 6f |s articl|e(s) fro|
|00001490| 6d 20 25 73 22 20 69 6e | 74 2d 74 6f 2d 73 74 72 |m %s" in|t-to-str|
|000014a0| 69 6e 67 20 6e 6e 64 62 | 2d 62 75 69 6c 64 2d 65 |ing nndb|-build-e|
|000014b0| 78 70 69 72 65 2d 72 65 | 73 74 2d 6c 69 73 74 5d |xpire-re|st-list]|
|000014c0| 20 38 20 28 23 24 20 2e | 20 34 35 32 33 29 5d 29 | 8 (#$ .| 4523)])|
|000014d0| 0a 23 40 31 32 36 20 45 | 78 70 69 72 65 73 20 41 |.#@126 E|xpires A|
|000014e0| 52 54 49 43 4c 45 53 20 | 66 72 6f 6d 20 47 52 4f |RTICLES |from GRO|
|000014f0| 55 50 20 6f 6e 20 53 45 | 52 56 45 52 2e 0a 49 66 |UP on SE|RVER..If|
|00001500| 20 46 4f 52 43 45 2c 20 | 64 65 6c 65 74 65 20 72 | FORCE, |delete r|
|00001510| 65 67 61 72 64 6c 65 73 | 73 20 6f 66 20 65 78 69 |egardles|s of exi|
|00001520| 72 61 74 69 6f 6e 20 64 | 61 74 65 2c 20 6f 74 68 |ration d|ate, oth|
|00001530| 65 72 77 69 73 65 20 75 | 73 65 20 6e 6f 72 6d 61 |erwise u|se norma|
|00001540| 6c 0a 65 78 70 69 72 79 | 20 6d 65 63 68 61 6e 69 |l.expiry| mechani|
|00001550| 73 6d 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |sm...(de|falias '|
|00001560| 6e 6e 64 62 2d 72 65 71 | 75 65 73 74 2d 65 78 70 |nndb-req|uest-exp|
|00001570| 69 72 65 2d 61 72 74 69 | 63 6c 65 73 20 23 5b 28 |ire-arti|cles #[(|
|00001580| 61 72 74 69 63 6c 65 73 | 20 26 6f 70 74 69 6f 6e |articles| &option|
|00001590| 61 6c 20 67 72 6f 75 70 | 20 73 65 72 76 65 72 20 |al group| server |
|000015a0| 66 6f 72 63 65 29 20 22 | 08 ab 87 c1 5c 6e 0b 0c |force) "|....\n..|
|000015b0| 0d 24 87 c6 5c 6e 0b 0c | 0d 24 87 22 20 5b 6e 6e |.$..\n..|.$." [nn|
|000015c0| 64 62 2d 73 65 72 76 65 | 72 2d 73 69 64 65 2d 65 |db-serve|r-side-e|
|000015d0| 78 70 69 72 79 20 6e 6e | 64 62 2d 72 65 71 75 65 |xpiry nn|db-reque|
|000015e0| 73 74 2d 65 78 70 69 72 | 65 2d 61 72 74 69 63 6c |st-expir|e-articl|
|000015f0| 65 73 2d 72 65 6d 6f 74 | 65 20 61 72 74 69 63 6c |es-remot|e articl|
|00001600| 65 73 20 67 72 6f 75 70 | 20 73 65 72 76 65 72 20 |es group| server |
|00001610| 66 6f 72 63 65 20 6e 6e | 64 62 2d 72 65 71 75 65 |force nn|db-reque|
|00001620| 73 74 2d 65 78 70 69 72 | 65 2d 61 72 74 69 63 6c |st-expir|e-articl|
|00001630| 65 73 2d 6c 6f 63 61 6c | 5d 20 35 20 28 23 24 20 |es-local|] 5 (#$ |
|00001640| 2e 20 35 33 33 35 29 5d | 29 0a 28 6e 6e 6f 6f 2d |. 5335)]|).(nnoo-|
|00001650| 72 65 67 69 73 74 65 72 | 2d 66 75 6e 63 74 69 6f |register|-functio|
|00001660| 6e 20 27 6e 6e 64 62 2d | 72 65 71 75 65 73 74 2d |n 'nndb-|request-|
|00001670| 65 78 70 69 72 65 2d 61 | 72 74 69 63 6c 65 73 29 |expire-a|rticles)|
|00001680| 0a 23 40 31 33 32 20 4d | 6f 76 65 20 41 52 54 49 |.#@132 M|ove ARTI|
|00001690| 43 4c 45 20 28 61 20 6e | 75 6d 62 65 72 29 20 66 |CLE (a n|umber) f|
|000016a0| 72 6f 6d 20 47 52 4f 55 | 50 20 6f 6e 20 53 45 52 |rom GROU|P on SER|
|000016b0| 56 45 52 2e 0a 45 76 61 | 6c 73 20 41 43 43 45 50 |VER..Eva|ls ACCEP|
|000016c0| 54 2d 46 4f 52 4d 20 69 | 6e 20 63 75 72 72 65 6e |T-FORM i|n curren|
|000016d0| 74 20 62 75 66 66 65 72 | 2c 20 77 68 65 72 65 20 |t buffer|, where |
|000016e0| 74 68 65 20 61 72 74 69 | 63 6c 65 20 69 73 2e 0a |the arti|cle is..|
|000016f0| 4f 70 74 69 6f 6e 61 6c | 20 4c 41 53 54 20 69 73 |Optional| LAST is|
|00001700| 20 69 67 6e 6f 72 65 64 | 2e 1f 0a 28 64 65 66 61 | ignored|...(defa|
|00001710| 6c 69 61 73 20 27 6e 6e | 64 62 2d 72 65 71 75 65 |lias 'nn|db-reque|
|00001720| 73 74 2d 6d 6f 76 65 2d | 61 72 74 69 63 6c 65 20 |st-move-|article |
|00001730| 23 5b 28 61 72 74 69 63 | 6c 65 20 67 72 6f 75 70 |#[(artic|le group|
|00001740| 20 73 65 72 76 65 72 20 | 61 63 63 65 70 74 2d 66 | server |accept-f|
|00001750| 6f 72 6d 20 26 6f 70 74 | 69 6f 6e 61 6c 20 6c 61 |orm &opt|ional la|
|00001760| 73 74 29 20 22 08 41 40 | c1 1a 1b c4 0d 0e 06 5c |st) ".A@|.......\|
|00001770| 22 88 c7 c8 0b 5c 22 ab | cf 0b 1e 09 c7 ca 0e 09 |"....\".|........|
|00001780| 5c 22 ab 88 0e 09 cb 95 | c1 4f aa 82 0e 09 29 1e |\"......|.O....).|
|00001790| 0c cd ce 0e 0f 0e 0c 45 | 1e 10 1e 11 0e 12 ac 8d |.......E|........|
|000017a0| 0e 13 ac 89 8a 0e 14 71 | 88 d5 20 88 29 d6 d7 d8 |.......q|.. .)...|
|000017b0| 0e 10 d9 23 0e 1a 0e 1b | 0e 14 0e 11 0e 12 26 06 |...#....|......&.|
|000017c0| 88 2a 0b 0e 0f 29 42 aa | b2 dc dd 21 1e 1e df 0e |.*...)B.|...!....|
|000017d0| 0f 0d 0e 06 0e 1e 24 ab | a0 8a 0e 1e 71 88 e0 0e |......$.|....q...|
|000017e0| 14 21 88 e1 08 21 12 e2 | 70 21 88 5c 6e 29 ab 8a |.!...!..|p!.\n)..|
|000017f0| e3 0e 0f 43 0d 0e 06 e4 | 24 88 5c 6e 29 2a 87 22 |...C....|$.\n)*."|
|00001800| 20 5b 61 63 63 65 70 74 | 2d 66 6f 72 6d 20 6e 69 | [accept|-form ni|
|00001810| 6c 20 72 65 73 75 6c 74 | 20 6e 65 77 2d 67 72 6f |l result| new-gro|
|00001820| 75 70 20 6e 6e 74 70 2d | 70 6f 73 73 69 62 6c 79 |up nntp-|possibly|
|00001830| 2d 63 68 61 6e 67 65 2d | 67 72 6f 75 70 20 67 72 |-change-|group gr|
|00001840| 6f 75 70 20 73 65 72 76 | 65 72 20 73 74 72 69 6e |oup serv|er strin|
|00001850| 67 2d 6d 61 74 63 68 20 | 22 5e 6e 6e 64 62 22 20 |g-match |"^nndb" |
|00001860| 67 6e 61 6d 65 20 22 5e | 5b 5e 3a 5d 2b 3a 22 20 |gname "^|[^:]+:" |
|00001870| 30 20 6e 65 77 2d 67 72 | 6f 75 70 2d 6e 61 6d 65 |0 new-gr|oup-name|
|00001880| 20 22 5e 5b 32 33 5d 2e | 2a 5c 6e 22 20 22 58 2d | "^[23].|*\n" "X-|
|00001890| 4d 4f 56 45 22 20 61 72 | 74 69 63 6c 65 20 73 74 |MOVE" ar|ticle st|
|000018a0| 72 69 6e 67 73 20 77 61 | 69 74 2d 66 6f 72 20 6e |rings wa|it-for n|
|000018b0| 6e 68 65 61 64 65 72 2d | 63 61 6c 6c 62 61 63 6b |nheader-|callback|
|000018c0| 2d 66 75 6e 63 74 69 6f | 6e 20 6e 6e 74 70 2d 69 |-functio|n nntp-i|
|000018d0| 6e 68 69 62 69 74 2d 6f | 75 74 70 75 74 20 6e 6e |nhibit-o|utput nn|
|000018e0| 74 70 2d 73 65 72 76 65 | 72 2d 62 75 66 66 65 72 |tp-serve|r-buffer|
|000018f0| 20 65 72 61 73 65 2d 62 | 75 66 66 65 72 20 6e 6e | erase-b|uffer nn|
|00001900| 74 70 2d 72 65 74 72 69 | 65 76 65 2d 64 61 74 61 |tp-retri|eve-data|
|00001910| 20 6d 61 70 63 6f 6e 63 | 61 74 20 69 64 65 6e 74 | mapconc|at ident|
|00001920| 69 74 79 20 22 20 22 20 | 6e 6e 74 70 2d 61 64 64 |ity " " |nntp-add|
|00001930| 72 65 73 73 20 6e 6e 74 | 70 2d 70 6f 72 74 2d 6e |ress nnt|p-port-n|
|00001940| 75 6d 62 65 72 20 67 65 | 74 2d 62 75 66 66 65 72 |umber ge|t-buffer|
|00001950| 2d 63 72 65 61 74 65 20 | 22 20 2a 6e 6e 64 62 20 |-create |" *nndb |
|00001960| 6d 6f 76 65 2a 22 20 61 | 72 74 62 75 66 20 6e 6e |move*" a|rtbuf nn|
|00001970| 64 62 2d 72 65 71 75 65 | 73 74 2d 61 72 74 69 63 |db-reque|st-artic|
|00001980| 6c 65 20 69 6e 73 65 72 | 74 2d 62 75 66 66 65 72 |le inser|t-buffer|
|00001990| 2d 73 75 62 73 74 72 69 | 6e 67 20 65 76 61 6c 20 |-substri|ng eval |
|000019a0| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 20 6e 6e 64 62 |kill-buf|fer nndb|
|000019b0| 2d 72 65 71 75 65 73 74 | 2d 65 78 70 69 72 65 2d |-request|-expire-|
|000019c0| 61 72 74 69 63 6c 65 73 | 20 74 5d 20 37 20 28 23 |articles| t] 7 (#|
|000019d0| 24 20 2e 20 35 37 36 37 | 29 5d 29 0a 28 6e 6e 6f |$ . 5767|)]).(nno|
|000019e0| 6f 2d 72 65 67 69 73 74 | 65 72 2d 66 75 6e 63 74 |o-regist|er-funct|
|000019f0| 69 6f 6e 20 27 6e 6e 64 | 62 2d 72 65 71 75 65 73 |ion 'nnd|b-reques|
|00001a00| 74 2d 6d 6f 76 65 2d 61 | 72 74 69 63 6c 65 29 0a |t-move-a|rticle).|
|00001a10| 23 40 35 34 20 54 68 65 | 20 61 72 74 69 63 6c 65 |#@54 The| article|
|00001a20| 20 69 6e 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 | in the |current |
|00001a30| 62 75 66 66 65 72 20 69 | 73 20 70 75 74 20 69 6e |buffer i|s put in|
|00001a40| 74 6f 20 47 52 4f 55 50 | 2e 1f 0a 28 64 65 66 61 |to GROUP|...(defa|
|00001a50| 6c 69 61 73 20 27 6e 6e | 64 62 2d 72 65 71 75 65 |lias 'nn|db-reque|
|00001a60| 73 74 2d 61 63 63 65 70 | 74 2d 61 72 74 69 63 6c |st-accep|t-articl|
|00001a70| 65 20 23 5b 28 67 72 6f | 75 70 20 73 65 72 76 65 |e #[(gro|up serve|
|00001a80| 72 20 26 6f 70 74 69 6f | 6e 61 6c 20 6c 61 73 74 |r &optio|nal last|
|00001a90| 29 20 22 c0 09 5c 6e 5c | 22 88 c3 89 1c 1d c6 c7 |) "..\n\|".......|
|00001aa0| 09 44 1e 08 1e 09 0e 5c | 6e ac 8d 0e 0b ac 89 8a |.D.....\|n.......|
|00001ab0| 0e 0c 71 88 cd 20 88 29 | ce cf d0 0e 08 d1 23 0e |..q.. .)|......#.|
|00001ac0| 12 0e 13 0e 0c 0e 09 0e | 5c 6e 26 06 2a ab 88 d4 |........|\n&.*...|
|00001ad0| d5 21 88 d6 d7 21 88 0e | 0c 71 88 d8 65 64 5c 22 |.!...!..|.q..ed\"|
|00001ae0| 14 d9 da 0c 5c 22 ac 85 | db dc 0c 5c 22 88 0c dd |....\"..|...\"...|
|00001af0| 94 dd 95 4f 15 de df 0d | 5c 22 88 0d 2a 43 87 22 |...O....|\"..*C."|
|00001b00| 20 5b 6e 6e 74 70 2d 70 | 6f 73 73 69 62 6c 79 2d | [nntp-p|ossibly-|
|00001b10| 63 68 61 6e 67 65 2d 67 | 72 6f 75 70 20 67 72 6f |change-g|roup gro|
|00001b20| 75 70 20 73 65 72 76 65 | 72 20 6e 69 6c 20 6d 73 |up serve|r nil ms|
|00001b30| 67 20 61 72 74 20 22 5e | 5b 32 33 5d 2e 2a 0d 3f |g art "^|[23].*.?|
|00001b40| 5c 6e 22 20 22 41 43 43 | 45 50 54 22 20 73 74 72 |\n" "ACC|EPT" str|
|00001b50| 69 6e 67 73 20 77 61 69 | 74 2d 66 6f 72 20 6e 6e |ings wai|t-for nn|
|00001b60| 68 65 61 64 65 72 2d 63 | 61 6c 6c 62 61 63 6b 2d |header-c|allback-|
|00001b70| 66 75 6e 63 74 69 6f 6e | 20 6e 6e 74 70 2d 69 6e |function| nntp-in|
|00001b80| 68 69 62 69 74 2d 6f 75 | 74 70 75 74 20 6e 6e 74 |hibit-ou|tput nnt|
|00001b90| 70 2d 73 65 72 76 65 72 | 2d 62 75 66 66 65 72 20 |p-server|-buffer |
|00001ba0| 65 72 61 73 65 2d 62 75 | 66 66 65 72 20 6e 6e 74 |erase-bu|ffer nnt|
|00001bb0| 70 2d 72 65 74 72 69 65 | 76 65 2d 64 61 74 61 20 |p-retrie|ve-data |
|00001bc0| 6d 61 70 63 6f 6e 63 61 | 74 20 69 64 65 6e 74 69 |mapconca|t identi|
|00001bd0| 74 79 20 22 20 22 20 6e | 6e 74 70 2d 61 64 64 72 |ty " " n|ntp-addr|
|00001be0| 65 73 73 20 6e 6e 74 70 | 2d 70 6f 72 74 2d 6e 75 |ess nntp|-port-nu|
|00001bf0| 6d 62 65 72 20 6e 6e 68 | 65 61 64 65 72 2d 69 6e |mber nnh|eader-in|
|00001c00| 73 65 72 74 20 22 22 20 | 6e 6e 74 70 2d 73 65 6e |sert "" |nntp-sen|
|00001c10| 64 2d 62 75 66 66 65 72 | 20 22 5e 5b 32 33 5d 2e |d-buffer| "^[23].|
|00001c20| 2a 5c 6e 22 20 62 75 66 | 66 65 72 2d 73 74 72 69 |*\n" buf|fer-stri|
|00001c30| 6e 67 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |ng strin|g-match |
|00001c40| 22 5e 5c 5c 28 5b 30 2d | 39 5d 2b 5c 5c 29 22 20 |"^\\([0-|9]+\\)" |
|00001c50| 65 72 72 6f 72 20 22 6e | 6e 64 62 3a 20 25 73 22 |error "n|ndb: %s"|
|00001c60| 20 31 20 6d 65 73 73 61 | 67 65 20 22 6e 6e 64 62 | 1 messa|ge "nndb|
|00001c70| 3a 20 61 63 63 65 70 74 | 65 64 20 25 73 22 5d 20 |: accept|ed %s"] |
|00001c80| 37 20 28 23 24 20 2e 20 | 36 36 37 37 29 5d 29 0a |7 (#$ . |6677)]).|
|00001c90| 28 6e 6e 6f 6f 2d 72 65 | 67 69 73 74 65 72 2d 66 |(nnoo-re|gister-f|
|00001ca0| 75 6e 63 74 69 6f 6e 20 | 27 6e 6e 64 62 2d 72 65 |unction |'nndb-re|
|00001cb0| 71 75 65 73 74 2d 61 63 | 63 65 70 74 2d 61 72 74 |quest-ac|cept-art|
|00001cc0| 69 63 6c 65 29 0a 23 40 | 39 36 20 41 52 54 49 43 |icle).#@|96 ARTIC|
|00001cd0| 4c 45 20 69 73 20 74 68 | 65 20 6e 75 6d 62 65 72 |LE is th|e number|
|00001ce0| 20 6f 66 20 74 68 65 20 | 61 72 74 69 63 6c 65 20 | of the |article |
|00001cf0| 69 6e 20 47 52 4f 55 50 | 20 74 6f 20 62 65 20 72 |in GROUP| to be r|
|00001d00| 65 70 6c 61 63 65 64 20 | 0a 77 69 74 68 20 74 68 |eplaced |.with th|
|00001d10| 65 20 63 6f 6e 74 65 6e | 74 73 20 6f 66 20 74 68 |e conten|ts of th|
|00001d20| 65 20 42 55 46 46 45 52 | 2e 1f 0a 28 64 65 66 61 |e BUFFER|...(defa|
|00001d30| 6c 69 61 73 20 27 6e 6e | 64 62 2d 72 65 71 75 65 |lias 'nn|db-reque|
|00001d40| 73 74 2d 72 65 70 6c 61 | 63 65 2d 61 72 74 69 63 |st-repla|ce-artic|
|00001d50| 6c 65 20 23 5b 28 61 72 | 74 69 63 6c 65 20 67 72 |le #[(ar|ticle gr|
|00001d60| 6f 75 70 20 62 75 66 66 | 65 72 29 20 22 08 71 88 |oup buff|er) ".q.|
|00001d70| c1 c2 c3 0c 21 44 1d 1e | 06 0e 07 ac 8d 0e 08 ac |....!D..|........|
|00001d80| 89 8a 0e 09 71 88 ca 20 | 88 29 cb cc cd 0d ce 23 |....q.. |.).....#|
|00001d90| 0e 0f 0e 10 0e 09 0e 06 | 0e 07 26 06 2a ad 8c d1 |........|..&.*...|
|00001da0| d2 21 88 d3 d4 21 88 c3 | 0c 21 43 87 22 20 5b 62 |.!...!..|.!C." [b|
|00001db0| 75 66 66 65 72 20 22 5e | 5b 32 33 5d 2e 2a 0d 3f |uffer "^|[23].*.?|
|00001dc0| 5c 6e 22 20 22 58 2d 52 | 45 50 4c 41 43 45 22 20 |\n" "X-R|EPLACE" |
|00001dd0| 69 6e 74 2d 74 6f 2d 73 | 74 72 69 6e 67 20 61 72 |int-to-s|tring ar|
|00001de0| 74 69 63 6c 65 20 73 74 | 72 69 6e 67 73 20 77 61 |ticle st|rings wa|
|00001df0| 69 74 2d 66 6f 72 20 6e | 6e 68 65 61 64 65 72 2d |it-for n|nheader-|
|00001e00| 63 61 6c 6c 62 61 63 6b | 2d 66 75 6e 63 74 69 6f |callback|-functio|
|00001e10| 6e 20 6e 6e 74 70 2d 69 | 6e 68 69 62 69 74 2d 6f |n nntp-i|nhibit-o|
|00001e20| 75 74 70 75 74 20 6e 6e | 74 70 2d 73 65 72 76 65 |utput nn|tp-serve|
|00001e30| 72 2d 62 75 66 66 65 72 | 20 65 72 61 73 65 2d 62 |r-buffer| erase-b|
|00001e40| 75 66 66 65 72 20 6e 6e | 74 70 2d 72 65 74 72 69 |uffer nn|tp-retri|
|00001e50| 65 76 65 2d 64 61 74 61 | 20 6d 61 70 63 6f 6e 63 |eve-data| mapconc|
|00001e60| 61 74 20 69 64 65 6e 74 | 69 74 79 20 22 20 22 20 |at ident|ity " " |
|00001e70| 6e 6e 74 70 2d 61 64 64 | 72 65 73 73 20 6e 6e 74 |nntp-add|ress nnt|
|00001e80| 70 2d 70 6f 72 74 2d 6e | 75 6d 62 65 72 20 6e 6e |p-port-n|umber nn|
|00001e90| 68 65 61 64 65 72 2d 69 | 6e 73 65 72 74 20 22 22 |header-i|nsert ""|
|00001ea0| 20 6e 6e 74 70 2d 73 65 | 6e 64 2d 62 75 66 66 65 | nntp-se|nd-buffe|
|00001eb0| 72 20 22 5e 5b 32 33 2e | 2a 5c 6e 22 5d 20 37 20 |r "^[23.|*\n"] 7 |
|00001ec0| 28 23 24 20 2e 20 37 33 | 37 31 29 5d 29 0a 28 6e |(#$ . 73|71)]).(n|
|00001ed0| 6e 6f 6f 2d 72 65 67 69 | 73 74 65 72 2d 66 75 6e |noo-regi|ster-fun|
|00001ee0| 63 74 69 6f 6e 20 27 6e | 6e 64 62 2d 72 65 71 75 |ction 'n|ndb-requ|
|00001ef0| 65 73 74 2d 72 65 70 6c | 61 63 65 2d 61 72 74 69 |est-repl|ace-arti|
|00001f00| 63 6c 65 29 0a 23 40 33 | 35 20 52 65 74 75 72 6e |cle).#@3|5 Return|
|00001f10| 20 73 65 72 76 65 72 20 | 73 74 61 74 75 73 20 61 | server |status a|
|00001f20| 73 20 61 20 73 74 72 69 | 6e 67 2e 1f 0a 28 64 65 |s a stri|ng...(de|
|00001f30| 66 61 6c 69 61 73 20 27 | 6e 6e 64 62 2d 73 74 61 |falias '|nndb-sta|
|00001f40| 74 75 73 2d 6d 65 73 73 | 61 67 65 20 23 5b 28 26 |tus-mess|age #[(&|
|00001f50| 6f 70 74 69 6f 6e 61 6c | 20 73 65 72 76 65 72 29 |optional| server)|
|00001f60| 20 22 08 71 88 c1 65 64 | 5c 22 87 22 20 5b 6e 6e | ".q..ed|\"." [nn|
|00001f70| 74 70 2d 73 65 72 76 65 | 72 2d 62 75 66 66 65 72 |tp-serve|r-buffer|
|00001f80| 20 62 75 66 66 65 72 2d | 73 74 72 69 6e 67 5d 20 | buffer-|string] |
|00001f90| 33 20 28 23 24 20 2e 20 | 37 39 34 36 29 5d 29 0a |3 (#$ . |7946)]).|
|00001fa0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 88 |(byte-co|de "..!.|
|00001fb0| c2 c3 c4 5c 22 88 c5 c3 | 21 87 22 20 5b 6e 6e 6f |...\"...|!." [nno|
|00001fc0| 6f 2d 72 65 67 69 73 74 | 65 72 2d 66 75 6e 63 74 |o-regist|er-funct|
|00001fd0| 69 6f 6e 20 6e 6e 64 62 | 2d 73 74 61 74 75 73 2d |ion nndb|-status-|
|00001fe0| 6d 65 73 73 61 67 65 20 | 6e 6e 6f 6f 2d 69 6d 70 |message |nnoo-imp|
|00001ff0| 6f 72 74 2d 31 20 6e 6e | 64 62 20 28 28 6e 6e 74 |ort-1 nn|db ((nnt|
|00002000| 70 29 29 20 70 72 6f 76 | 69 64 65 5d 20 33 29 0a |p)) prov|ide] 3).|
+--------+-------------------------+-------------------------+--------+--------+